home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_12_1986_Transactor_Publishing.d64
/
cmd wedge.demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
39 lines
10 '
20 ' command wedge demo
30 '
40 ' by frank e. digioia
50 ' 11/17/85
60 '
70 '
80 print"press any key to start":wait
90 print:print"key found! ascii"peek(2)
100 print"touch any key to test list"
110 wait:list:print:print"list done!"
120 print"choose a subroutine 1, 2 ,3"
130 wait:subr=peek(2)-asc("0")
135 if subr<1 or subr>3 then goto 120
140 gosub subr*300+50:'computed gosub
150 print:input"goto 170, 180 or 190";a
155 ifa<>170 and a<>180 and a<>190 then150
160 goto a
170 print"line #170":goto200
180 print"line #180":goto200
190 print"line #190"
200 print"touch any key for restore demo"
210 wait:data 1,2,3,4,5,6,7,8,9,10
220 print"data in line 210 printed backwards":print
230 fori=10to1step-1:restore210,i:reada:printa;:next:print
240 data "line 240","commas,,,","eoln1"
250 data "line 250","data line","eoln2"
260 data "line 260","middle","eoln3"
270 print:print"choose a data line:"
280 input"240, 250 or 260";line
285 if li<>240 and li<>250 and li<>260 then 270
290 print:print"choose a data element:"
300 input"1, 2 or 3";de:ifde<1then300
310 restore line,de:read a$
320 print "element is: "a$:goto270
350 print"subroutine #1":return
650 print"subroutine #2":return
950 print"subroutine #3":return